use strict;
use Bio::Tools::GFF;
my $gffio = Bio::Tools::GFF->new(-file=>"tiny.gff",-gff_version=>3);

while (my $feature = $gffio->next_feature()){
    print $feature -> primary_tag() ."\t". $feature->start() ."\t". $feature->end()."\n";
}
$gffio->close();